Пишем N не отдельно, а в начале других строк
Используем математику, вместо IF-GOTO
Использование одой и той же переменной,в разных частях макроса

Мспользование одной переменной, одновременно и счётчиком и приёмником, как в проверке контактов.